      INTEGER XDIM,BDM
      PARAMETER (XDIM=21,BDM=81)

